10 POKE56,36:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
25 LF=1:POKE788,52
30 POKE53281,0:POKE53280,0:PRINT"[147][129]"TAB(8)"[204][207][193][196][211][212][193][210]'[211] [207][208] [197][196] [195][193][210][212][207][207][206][211]"
40 PRINT"[155]           BY [211]TEVEN [215]RIGHT
42 [139]F1[167]100
44 F1[178]1
50 [158]57812"WP/CM/UNP",DV,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
62 [158]57812"WEB.SHP",DV,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
64 [158]57812"PC PRISONER.SHP",DV,0:[151]780,0:[151]781,0:[151]782,117:[158]65493
66 [158]57812"BON APPETIT.SHP",DV,0:[151]780,0:[151]781,0:[151]782,134:[158]65493
68 [158]57812"NIGHTMARE.SHP",DV,0:[151]780,0:[151]781,0:[151]782,36:[158]65493
70 [158]57812"MARGINAL.SHP",DV,0:[151]780,0:[151]781,0:[151]782,48:[158]65493
90 [151]53280,0
92 WP[178]49152:UN[178]51456:CM[178]50688
94 LF$(0)[178]"(null)ASCASC":LF$(1)[178]"(null)(null) "
96 S(1)[178]100:S(2)[178]117:S(3)[178]134:S(4)[178]36:S(5)[178]48
100 [153][163]8)" 1.CONT (null)ORLD (null)IDE (null)EB?
101 PRINTTAB(8)" 2.[154] [208].[195]. [208]RISONER
102 [153][163]8)" 3.CONT PEEKON ATNPPETIT
103 PRINTTAB(8)" 4.[154] [200]ARDWARE [206]IGHTMARE
104 [153][163]8)" 5.CONT (null)ARGINAL (null)SER
105 PRINTTAB(8)" 6.[154] [209]UIT
106 [161]A$:[139]A$[179]"1"[176]A$[177]"6"[167]106
108 D[178][197](A$):[139]D[178]6[167]40000
109 [129]I[178]3[164]16:[151]781,I:[158]59903:[130]
112 [151]251,S(D):[151]252,64:[151]253,96:[158]51456
120 [151]214,6:[153]:[153]" 1.CONT MID$UST SHOW THE PICTURE.
122 PRINT" 2.[154] [211]HOW THE PICTURE AND PRINT IT ON
125 [153]"    A 7-PIN (1525-EMULATING) PRINTER.
130 PRINT" 3.[154] [211]HOW THE PICTURE AND PRINT IT ON
135 [153]"    AN 8-PIN (VALPSON-EMULATING) PRINTER.
140 PRINT" 4.[154] [212]OGGLE LINEFEED -- "LF$(LF)
150 PRINT" 5.[154] [210]ETURN TO [204][207][193][196][211][212][193][210]
170 [153]"LIST  (null)AKE SURE YOUR PRINTER IS ON-LINE.
220 POKE198,0
222 POKE53280,0
230 GETA$:IFA$<"1"ORA$>"5"THEN230
232 IFA$="5"THEN40000
233 IFA$="4"THENLF=1-LF:POKE214,14:PRINT:PRINTTAB(23)""LF$(LF):GOTO220
235 SYS51459
240 IFA$="2"THENSYS49155,4,0,LF,0,0,39,24,64:GOTO280
250 IFA$="3"THENSYS49152,4,5,LF,0,0,39,24,64,75,35,51,24,0:GOTO280
260 POKE198,0
262 POKE53280,0
270 GETA$:IFA$=""THEN270
280 POKE251,S(D):POKE252,64:POKE253,96:SYS51459
282 POKE186,DV
290 PRINT"[147]":GOTO30
10000 DV=PEEK(186):N$="B.OP ED 141":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
40000 POKE788,49
40002 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END